home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / testbild 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  152 lines
  1. 1 REM *********************************
  2. 2 REM *       dXBILDGENERATOR       *
  3. 3 REM *********************************
  4. 4 REM *         DIETER LAUES          *
  5. 5 REM *        VOWINKELSTR. 1         *
  6. 6 REM *       4030 RATINGEN 1         *
  7. 7 REM *********************************
  8. 8 REM
  9. 9 REM
  10. 20 L=8:S=54272:REM SYNTHESIZER
  11. 25 dg:d 0,3:REM GRUNDZUSTAND
  12. 30 PRINT"[147]"
  13. 35 PRINT"1 - ROT"
  14. 40 PRINT"2 - GRUEN"
  15. 45 PRINT"3 - BLAU":PRINT
  16. 50 PRINT"4 - GITTER":PRINT
  17. 55 PRINT"5 - FARBBALKEN":PRINT
  18. 60 PRINT"6 - MULTIBURST":PRINT
  19. 65 PRINT"7 - 50HZ-SPRUNG":PRINT
  20. 70 PRINT"8 - 2T-IMPULS":PRINT
  21. 75 PRINT"9 - FARBTESTBILD":PRINT:PRINT
  22. 80 PRINT"----------------------------"
  23. 85 PRINT"F1   PEGELTON       1000 HZ"
  24. 90 PRINT"F3   ZWEITON-KENNUNG 274 HZ"
  25. 95 PRINT"F5   STEREO-KENNUNG  117 HZ"
  26. 100 GET A$:IF A$="" THEN 100
  27. 105 A=VAL (A$):IF A<1 OR A>9 THEN 100
  28. 110 ON A GOSUB 295,300,305,315,330,370,410,440,455
  29. 115 GOTO 25
  30. 120 REM *******************************
  31. 125 REM *        UNTERPROGRAMME       *
  32. 130 REM *******************************
  33. 135 REM --- VERTIKALE dYIEN ---
  34. 140 FOR N=A TO B STEP C
  35. 145 FOR M=0 TO D
  36. 150 d N+M,0,N+M,185,1:NEXT M:NEXT N
  37. 155 do X,190,A$,1,0,8:RETURN
  38. 160 FOR N=A TO B STEP C:FOR M=0 TO D
  39. 165 d N+M,112,N+M,127,1:NEXTM:NEXTN
  40. 170 RETURN
  41. 175 REM --- RASTER ---
  42. 180 d 1,0:REM GRAFIK EINSCHALTEN
  43. 185 FOR N=8 TO 320 STEP 20
  44. 190 d N,0,N,199,1:NEXT
  45. 195 FOR N=8 TO 199 STEP 20
  46. 200 d 0,N,319,N,1:NEXT
  47. 205 RETURN
  48. 210 REM --- FARBFLAECHE ---
  49. 215 PRINT"[147]":d A,A
  50. 220 GOTO 230
  51. 225 REM --- TASTEN ABFRAGEN ---
  52. 230 GET A$:IF A$="" THEN 230
  53. 235 IF ASC(A$)>140 OR ASC(A$)<133 THEN RETURN
  54. 240 IF ASC(A$)=133 THEN HI=66:LO=140:GOSUB 275
  55. 245 IF ASC(A$)=134 THEN HI=18:LO=60 :GOSUB 275
  56. 250 IF ASC(A$)=135 THEN HI=7 :LO=200:GOSUB 275
  57. 255 IF ASC(A$)=136 THEN L=L+1:IF L>15 THEN L=15
  58. 260 IF ASC(A$)=140 THEN L=L-1:IF L<0 THEN L=0
  59. 265 dq L:GOTO 230:REM LAUTSTAERKE
  60. 270 REM --- TOENE ---
  61. 275 POKE S+7,LO:POKE S+8,HI:POKE S+13,240:REM FREQUENZ,WELLENFORM
  62. 280 IF E=0 THEN E=1:POKES+11,17:RETURN
  63. 285 IF E=1 THEN E=0:POKE S+11,0:RETURN
  64. 290 REM ******* GRUNDFARBEN **********
  65. 295 A=2:GOTO 215:REM d    
  66. 300 A=5:GOTO 215:REM GRUEN
  67. 305 A=6:GOTO 215:REM BLAU
  68. 310 REM ********** GITTER ************
  69. 315 GOSUB 180:REM RASTER ZEICHNEN
  70. 320 GOTO 230
  71. 325 REM ******** FARBBALKEN **********
  72. 330 d 15,0:REM RAHMEN, HINTERGRUND
  73. 335 PRINT"[147]     [158]     [159]          [156]               [144]    "
  74. 340 FOR N=1 TO 23
  75. 345 PRINT"     [158]     [159]          [156]               [144]    "
  76. 350 NEXT
  77. 355 PRINT"     [158]     [159]          [156]               [144]    [145]"
  78. 360 GOTO 230
  79. 365 REM ******* dBURST **********
  80. 370 d 1,0
  81. 375 A=0  :B=70 :C=16:D=7:X=5  :A$="0,5 MHZ":GOSUB 140
  82. 380 A=76 :B=128:C=8 :D=3:X=80 :A$="1 MHZ":GOSUB 140
  83. 385 A=132:B=192:C=6 :D=2:X=135:A$="1,3 MHZ":GOSUB 140
  84. 390 A=198:B=256:C=4 :D=1:X=205:A$="2 MHZ":GOSUB 140
  85. 395 A=258:B=318:C=2 :D=0:X=265:A$="4 MHZ":GOSUB 140
  86. 400 GOTO 230
  87. 405 REM ******* 50HZ-SPRUNG **********
  88. 410 d 0,0:PRINT"[147]"
  89. 415 FOR N=1 TO 15
  90. 420 PRINT"                                       [146][144]"
  91. 425 NEXT
  92. 430 GOTO 230
  93. 435 REM ******* 2T-IMPULS ***********
  94. 440 d 1,0:d 160,0,160,199,1
  95. 445 GOTO 230
  96. 450 REM ****** dXBILD *************
  97. 455 d 1,0:REM GRAFIK EINSCHALTEN
  98. 460 REM ----- AEUSSERES RASTER ------
  99. 465 FOR N=8 TO 60 STEP 20
  100. 470 d N,0,N,199,1:NEXT
  101. 475 FOR N=69 TO 260 STEP 20
  102. 480 d N,0,N,24,1:d N,175,N,199,1:NEXT
  103. 485 FOR N=270 TO 320 STEP 20
  104. 490 d N,0,N,199,1:NEXT
  105. 495 d 0,8,319,8,1
  106. 500 d 0,188,319,188,1
  107. 505 FOR N=28 TO 168 STEP 20
  108. 510 d 0,N,63,N,1:d 255,N,319,N,1:NEXT
  109. 515 REM ----- INNERER RAHMEN --------
  110. 520 FOR N=63 TO 251 STEP 24
  111. 525 d N,24,24,40,1:NEXT
  112. 530 FOR N=63 TO 190 STEP 40
  113. 535 d N,64,40,32,1:NEXT
  114. 540 d 224,64,31,48,1
  115. 545 d 63,96,32,16,1
  116. 550 d 96,96,127,16,1
  117. 555 d 63,112,192,16,1
  118. 560 d 63,128,192,15,1
  119. 565 d 63,143,128,16,1
  120. 570 d 63,160,128,15,1
  121. 575 d 192,144,30,31,1
  122. 580 d 224,144,31,31,1
  123. 585 d 158,128,158,142,1
  124. 590 d 160,142,170,128,1
  125. 595 REM     ----- KREIS -----
  126. 600 dk 159,100,321,39,1,100,100,1
  127. 605 dk 159,100,75,105,1,100,100,1
  128. 610 dk 159,100,255,285,1,100,100,1
  129. 615 dk 159,100,141,219,1,100,100,1
  130. 620 REM FARBEN EINSETZEN
  131. 625 dv 1,0,0:du 65,25,1
  132. 630 dv 7,0,0:du 90,25,1
  133. 635 dv 3,0,0:du 113,25,1
  134. 640 dv 5,0,0:du 137,25,1
  135. 645 dv 4,0,0:du 161,25,1
  136. 650 dv 2,0,0:du 185,25,1
  137. 655 dv 6,0,0:du 209,25,1
  138. 660 dv 0,0,0:du 233,25,1:du 90,90,1
  139. 665 dv 11,0,0:du 105,65,1
  140. 670 dv 12,0,0:du145,65,1:du 193,145,1:du225,145,1
  141. 675 dv 15,0,0:du 185,65,1
  142. 680 dv 2,0,0:du 64,144,1
  143. 685 dv 6,0,0:du 64,161,1
  144. 690 dv 1,0,0:du 225,65,1:du 66,97,1:du 65,129,1:du170,129,1
  145. 695 REM dBURST
  146. 700 A=86 :B=125:C=8:D=4:GOSUB 160
  147. 705 A=125:B=160:C=6:D=3:GOSUB 160
  148. 710 A=160:B=195:C=4:D=2:GOSUB 160
  149. 715 A=196:B=230:C=2:D=0:GOSUB 160
  150. 720 do 105,102,"64'ER [212]ESTBILD",1,1,8
  151. 725 GOTO 230
  152.